home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
PARSTP25.ZIP
/
PARSER.INT
< prev
next >
Wrap
Text File
|
1994-02-14
|
1KB
|
57 lines
(******************************************************************************
* parser *
* Ron Loewy, 1992. A mathematical recursive decent parser +-/*^ and functions *
* Version 2.5, Feb. 1994. *
******************************************************************************)
{$ifdef dll}
library parser;
{$N+,S-}
{$else}
unit parser;
{$ifdef ovl}
{$O+,F+}
{$endif}
interface
{$endif}
uses
parseDB
{$ifdef dll}
,strings
{$endif}
;
{$ifdef debug}
var
debugFile : text;
{$endif}
type
{$ifdef dll}
doubleReal = double;
{$else}
doubleReal = real;
{$endif}
type
TokenType = (Delimiter,Non,variable,Digit,endExpr,Error,Func);
TokenPtr = ^TokenRec;
TokenRec = Record
Next : TokenPtr;
Start,Close : Byte;
end;
var
parserErrStr : string;
ErrAt : Byte;
{$ifndef dll}
function GetExpr(const s : string; var valid : Boolean) : doubleReal;
implementation
{$endif}
end.